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-TITLE MSCPSSHOW - MSCP Server Information 
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VOe-000 PROGRAM SESERIPTION "SSEE=198¢ $8:88:39 YMsCPMSacSasepsnoueman:1 "88° Gf, 
>. -SBTTL PROGRAM DESCRIPTION 
FACILITY 
MSU Utility 
ABSTRACT 


This module contains the routine 
information to SHOWSMSCP which d 
about the MSCP server. 


s to gather and pass 
isplays this information 


ENVIRONMENT 

NATIVE MODE, USER MODE 
AUTHOR 

Anne E. Warner, 10-Apr-1984 
MODIFIED BY 


V03-004 AEWO004 Anne E. Warner wa thy: 
Change MSUSW_MIN_PKT to MSUSW_INI_PKT in GET_RESO to 
correct mistake in the display 


AEWO003 Anne E. Warner 10-Jul-1984 
Make changes within the routines for the reformat of 
SHOW MSCP which is now SHOW DEVICE/SERVED. 


v03-002 AEWO002 Anne E. Warner 24-May-1984 
Change where the address of the "DUMMY1" stack is moved 
into R10 to avoid Access Violating on certain disks. This 
change is made in the module MSCPSGET_UNIT. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ss Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge 


v03-003 


SOOoooooooooooooooo 


MEAN OS ODNAUE WN OOD NOAUE WN OOONOUE Wit O 00 


v03-007 AEWO001 Anne E—. Warner 27-Apr-1984 
Made pug fixes so that this code will work with 
SHOWSMSCP. 


SGOOOCOSOCOCOSOSOSOSOSOCOCSOOCGOSCOOCOOOOOOOSOOOOOOOOOOSSO Cet 


QDI III ESB EES EB EBS EAN AANA AAAI 


SSSSSSssssssssssssss 
SOoOQCOoooooooooooooooooooooooooo 


Soooooooooo 


»O 
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8 xertinsnitn SrSEP-1986 08:08:39 Emsch-SRCSNSCPSHOW.RAR: 1 


»SBTTL DECLARATIONS 


vOs-000 DECLA 


A 


SYMBOL DEF INTIONS 


Sete te 


> MSCPDEF.MLB 


SHQBDEF 
SMSUDEF 
SUQBDEF 
-cross 


-DEFAULT DISPLACEMENT LONG 


OOoooo: 


STORAGE DEFINITIONS 


OOOCSSSOOSCSOSOSOSOOCOSOoOSOSOSOSoOSOSoOSOSOoOSSoSO 


SOOGDODOOOSO00O00 000000000000 09 090909090909 I IN SIN NIO OO 


DOONAN WO OOD NA NE WWIN OOD NAME WIN O OONOU EW" OO0D 


a 
0 
3 
00000 .PSECT SHOWSRWDATA,NOEXE ,WRT,LONG 
STATUS _ARY: 
45 46 49 GC 4 GF 20 20 1 ASCII /  ONLINE/ : ONLINE 
20 20 20 20 20 20 20 1 “ASCII / / 
9 20 20 20 10 1 “ASCII / / 
45 4E 49 4C 46 46 4F 18 «1 “ASCIL = / OFFLINE/ : OFFLINE 
4C 49 41 56 41 20 20 TASCIL /  AVAIL/ : AVAILABLE 
54 52 57 4F 4E 2F 106 NOWR C11 _2/NOWRT? 
00000006 O0ZE 1 
cat 


NOWRT: .ASCII 
NOWRT_LEN=.-NOWRT 
TIME: .BLKL 2 


oo 
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MSCPSGET_UNIT = Return information on un ety 7 95:83:39 EmscP eRe MSCPSHOW.MAR; 1 eu (1) 
+ -SBTTL MSCPSGET_UNIT = Return information on units 
0000 V2 -PSECT SHOWSCODE ,EXE,WRT,LONG 
M2 ENABLE LSB 
O7FC Hf -ENTRY MSCPSGET_UNIT “M<R2,R3,R4,R5,R6,R7,RB,R9,R10> Dt 
50 084 8F 3 11 MOVZWL #SS$_DEVOFFLINE,RO 3; Set for failure to find MSCP 
58 §0000086" F 05 120 MOVL QFSCSSGL_MSCP.RE 3; Pick up the pointer to MSCP area 
01. 1 121 BLSS 10 : ALL okay 
04 : : ¢ RET ; Return in disgrace 
C BC 20 9A 11 124 10$: MOVZBL #2*MSUSK_MAX_UNIT,@12(AP) 
59 0050 100'EF 9 158 125 MOVAB EVNAM,RG =~ 3 Save buffer address in non-volatile 
56 O08 AC OD if 1 § MOVL (AP) ,R6 : Grab unit slot number 
57 0090 C846 D 127 20$:  MOVL  MSUSL_UNIT_VEC(R8)CR6J,R7 ; UQB pointer 
9 1 0 3 1 3 BNEQ 21$ 3; Found one 
A 4 00 1 CLRL R10 
008F 1 3 5 ! ? BRwW 60$ 3 None 
02D 1 § 21$: SETIPL 70$ 3; Synch access 
B3 0034 1 BITW #<MSCPSM_UF_WRTPS!- ; Check write protect status 
0 : 134 MSCPSM_UF_WRTIPH>,=- 
12 a7 3000 8F 0 135 yOBS_UAT_FLGS(R75 
0 13 OO3A 1 $ BEQL $ ; Not write protected 
Boe 137 ; PUSHAL NOWRT ; Set up write protect message 
O3¢ 138 ; PUSHL #NOWRT_LEN 
02. «#11 09 4 13 BRB 23$ 
7E 7C i 133 228: CLRQ -(SP) ; Null message 
Be 148 : Process actual device name from UCB 
50 10 3 a9 145 23$: MOVZ2WL #16,R0 ; Max device name size 
51 59 DO 004 196 MOVL RY, 3 Use scratch area on stack 
5A OOFC'CF ODE bots 14 MOVAL W*DUMMY1,R10 ; Set up register to mimic a stack 
54 D4 0048 138 CLRL R4 3; Want nodename$devname 
55 38 A7 00 004D 14 MOVL UQB$L_UCB(R7) ,R5 3; Point to UCB 
090099 O'S9F 16 0051 £150 JSB a#lOCSCVT_DEVNAM 3; Do it 
1 0 0057 151 MOVL R ; Transfer Length 
69 55 24 3A OO5A 138 LOCC} =—-_-s #*A/$/, RS, (ROD : Find the end of nodename 
4 13 005 1 BEQL 40 3; None 
0 110°EF OTA 9 8 154 sity, 1(R1) ,DEV_NAME ; Start of devname 
114°EF 50 Os . 155 SUBL rf: RO,DEV_CNT 3; Size 
1 1 07 ® BRB 506 
AC 11 4 138 39$: BRB 208 ; BRB cannot fully reach 
o9090110°EE 59 OD 74 160 40$: MOVL R9,DEV_NAME ; Start of name 
00000114'°EF 5 01 C 7 193 SUBL3 #1,R »BEV_CNT ; Set length 
168 3 Set up rest of Line 
52 OC a7 9 165 50s: CVTBL UOBss .WOST CNT(R7),R2 ; Number of host online 
7A_ 52 =O01 § 1 § ADDL #1,R2,-(R10) : Correct for offset 
7A S52 A? 1 MOVZWL UQBSW.MAX_QUE(R7) ,-(R10) 3 Que parameters 


>Prwo 
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SoS 
OOOO OWOOWOWOOOO NNN NNO OO 
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oo 


nf ss Ay 7 
Return information on un 


EXT LV 


- ALIGN 


-LO 
EV_CNT:.LONG 
70$: - LONG 


FUN" OOODNAUE WN" OVOONAUS WOO 


MOVZWL 
MO 


r+ ow 


seTIBL 

Cie acs -(R10) 

DEV NAME, =(R10) 
NT,-(R10) 


R10794 (AP 
#SS$_NORMAL RO 


-DISABLE LSB 


AX/VMS Macro V04-00 
MSCP.SRCJMSCPSHOW.MAR; 1 


3; Ditt 

+ Max Block (size) 

: get. Ks device status 
finished with UB 
| fo ute correct offset 

I text ee status 

; Move stored devtes name to stone 


; Move device name count to stack 
; Provide top of argument Stack to calling r 


- placed here since it must be filled in at IPL 8. 


3; End of locked down code 
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m 
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053¢ 

50. 0084 BF 3 
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| a 
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50 =61C AO 09 
OF 1 

50 30 AO 00 
09.1 

OQOOOOICC'EF 44 AO 7DFD 

53 10 A4~ DO 

5A O1CB'CF ODE 

50 «4 

~_ 

0253 €9 

50 = 6 

53553 2! 7 
F4 3 F 

7A OS dO 


7A A AG C 

7A 8 AG C 

0000002E EF $0 AS 7D 
7A = =Q000002E ‘EF 

7A a sg Sh 7EFD 
04 BC ot 


om 


aoe 
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ecm ee ee ee ee ed ed = od = 8 SO — ) — — — — — — = — — — — — — —) 2 — — 2 ss 2 on a — 4s 
CODD WWW WW }& PW 00000000900 0909 09 09 SII NNO OO TU BB BB EWN 2 SS = 


SOOOOSOSOSOOSOSOSOOSOGOOOOOSOOOOOOOGOOGOSOCCOCOOOOOOOGOCOOGOOOOOOOOOSSO OU 


ENTRY 
MOVZWL 
MOVL 
BLSS 
RET 
10$: MOVZBL 
MOVL 
20$: MOVL 


218: 


22$: 


30$: 


SETIPL 


ad > a ° sd 
wm 
ad 


- ALIGN 

»BLKL 
DUMMY2: .LONG 
NNAME: .BLKL 


PDT BB BEBE EF PWIA AIG DIPIPPIPIPONIMND 2 9 9 OO SS SM OOOOOOOOCOCOCOOODO 
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-SBTTL MSCPSGET_HOST = Return information on hosts 
-ENABLE LSB 


MSCPSGET_HOST “M<R2,R3,R4,R5,R8,R10> 


#SS$_DEVOFFLINE RO 
aSCSSGL_MSCP.RE 


Set for failure to find MSCP 
ait Ye the pointer to MSCP area 


) ay 
Return in disgrace 


#2*MSUSK_MAX_HOST,@12(AP) ; Return the maximum host count 
BCAP),R5 : Pick up the host slot 
MSUSL_HOST_VEC(R8)CR5],R4 ; HOB pointer 

21$ : Foun 

R10 3; Show no host 

60$ 3; None 

R1 ; Set up 

70$ 3; Synch access 
HOBSL_CDT(R4) ,RO ; Pick up CDT pointer 
22$ 3 Boops! 

COTSL_PB(RO) ,RO 3; Pick up PB pointer 
22$ 3 Qoops’ 

a iemaahaanl sate 3; Pick up SB pointer 


SB$T_NODENAME (RO) , NNAME 
HQBSC_UNIT_ONLN(R4) ,R3 


W*DUMMY2,R10 


R2,25$ 
RO, -(R10) 


> At high IPL pick up the queue numbers 


$ 
HOBSW_MAX_QUE(R4) ,-(R10) 
HOB$W~NUM~QUE (R4) ;-(R10) 


# 

HOBSQ_TINE (RG) , TIME 
IME ,= (R10) 

NNAME ,-(R10) 

R10,04 (AP) 

#SS$_NORMAL,RO 


® 


4 


Finally we get the host name 
p} eee ty units 
e 


; Finis 


Set up register to mimic stack 
Set up 


; None 
; Check next bit 


number of devices on host 


ny access 
oice up value from data block 
° 
Finshed with block 
Pick up host connect time 
Get the time 
Move in the host name from above 
Copy the arg List pointer 


3 Argument List - placed here since it must be filled in at IPL 8. 


neha 


- MS 
MSCP 


EHS 


00000008 


rmat 
turn 


190 semation on no “SCSEESIBRE B3:08:99 YAR” 
tONe 6 


-LONG IPL$_SCS 
-DISABLE LSB 


SM 
SR 


caascrs 


04-00 
HOW .MAR; 1 


BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
BA 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
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yEC e .SBTTL MSCPSGET_RESO = Return information on resources s 

re¢ $3 .ENABLE LSB : 

0538 eC 69 -ENTRY MSCPSGET_RESO “M<R3,R4,R5,R8,R10> 4 

50 0084 8F 3C it6 83 MOVZWL #SS$_DEVOFFLINE,RO ; Set for failure to find MSCP M 

58 00000000'9F D0 OTF 68 MOVL a#SCSSGL _MSCP,RB : Pick up the pointer to MSCP area M 

01 1 1FA $9 BLSS #08 3 ALL okay M 

04 FC £0 RET ; Return in disgrace ; 

SA O0298'CF DE O1FD oe 10$: MOVAL W*DUMMY3,R10 3 Set up register to mimic stack M 

ge 7 SETIPL 40$ : Synch access to data blocks M 

7A 62 AB C 74 MOVZWL MSUS$W_MAX_QUE(R8),-(R10); Grab statistics M 

7A «660 AB”) 3C 9 OD 75 MOVZWL MSUSW NUM ~QUE (RB) ,~ (R19) M 

7A 48 AB C 11 76 MOVZWL MSUSW_ NuALP Abts ta bt M 

7A 46 AB C 0215 77 MOVZWL MSUSW~ T(RB) ,-(R10) iy 

7A 5C AB DO 0 19 A: MOVL  MSUSL ~ERACTIONCROS ,<cR10) M 

6A 00000200 8F C6 1D 7 DIVL2 #512,TR10) ; TEMP DIVIDE UNTIL SYSGEN PARAMS CHANGE M 

7A 58 AB DO 0224 280 MOVL MSUSL SMALL (RB) ,-(R10) My 

6A 00000200 8F 6 Oe 8 81 DIVL2 #512,TR10) 3 TEMP DIVIDE y 

53 C 022F 3¢ CLRQ : Zero oy accumulators M 

55 50 A8 9 0231 8 MOVL #$ MSUSL_BUFF_HEAD(R8),RS ; Pick ead of buffer pool M 

0B 13 0235 84 BEQL : None M 

54 04 A5 CO 0237 85 20$: ADDL 4(R5),R4 : Yes, add the size " 

53 06 0238 Hd INCL R3 : Incr number of buffers My 

55 65 00 023d § MOVL (R5),R5 3 Next bloc M 

F5 12 0240 88 BNEQ 20$ ; Okay, go one M 

55 54 a8 00 0242 89 30$:  MOVL MSUSL_MAX_BUF(R8).R5  : Original size M 

0246 90 SETIPL #0 : ig shed with the data block M 

7A =—555——i5S5GsC«iEs« KD 91 SUBL3 R4,R5,-(R10) : In iy 

6A 00000200 BF ¢é Oe4p 3¢ DIVL2 wie (R10) : TEMP. DIVIDE M 

7A 54 «D0 0254 «29 MOVL =(R10) : Fre M 

6A 00000200 BF C6 0257 29% DIVL2 PERU) ; TEMP DIVIDE M 

7A 55 00 O25E 295 MOVL =(R10) : Total M 

6A 00000200 BF C6 0261 296 DIVL2 n3{2, (R10) ; TEMP DIVIDE M 

04 BC SA BO 0268 297 MOVL R10,a4 (AP) : Pass back where start of info is " 

50 01 3¢ 926¢ 298 MOVZWL #SS$_NORMAL,RO s 

04 0 of 39 RET . 

ne Bs 3; Argument List - placed here since it must be filled in at IPL 8. : 

7 $8 .ALIGN LONG iy 

00000298 9 20 04 ~BLKL 10 iy 

3 5 DUMMY3: . 

00000008 § $8 40$: .LONG IPL$_SCS ; 

6 9C 9 .DISABLE LSB ‘ 

# 

f 

" 

| 


06F0 
084 3¢ 
59 *0000000" 5} 9 
04 
5A O3350°CF ODE 
7A D4 
7A D4 
6A 04 
59. 0480 C9 —s«*9E 
55 BOOOREEE" EE 9E 
5 85 9A 
ie a 
56 85 9A 
54 36 dO 
A D4 
6A 79 CO 
FA 54 F5 
F2 57 F5 
eB 11 
04 BC 5A 0 
50.01 C 
04 
18 01 
10 04 
08 05 
0000 
00000330 
00000000 
00000008 


ov 
@ 
os 
oc 
ce 
=—5 
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WAMAAAOO 
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MSCP.SRC MSCPSHOW. MAR; 1 (1) 


-SBTTL MSCPSGET_COU1 = Return information request counts 


-ENABLE LSB 


~-ENTRY MSCPSGET_COU1 “*M<R4,R5,R6,R7,R9,R10> 


MOVZWL 9 #SS$_DEVOFFLINE,RO 


MOVL  a#SCSSGL_MSCP,R9 
BL Ss 708 
RET 
10$:  SETIPL 70$ 
MOVAL W*DUMMY4,R10 
CLRL. = = (R10) 
CLRL =—_ = (R10) 
CLRL. = (R10) 
MOVAB MSUSL 
MOVAB REP_TBEL,RS5 3 
30$: MOVZBL CRSTs RP” 
BEQL 60$ 
MOVZBL (R5)+,R6 
40$: OVL  R6_RS 
CLRL = = (R10) 
50$: ADDL  =(R9),(R10) 
SOBGTR R4,50$ 
SOBGTR R7.40$ 
RB 30$ 
60S: SETIPL #0 ; 
MOVL R10, @4(AP) 


MOVZWL #SS$_NORMAL,RO 
RET 


: Tables & argument List - placed here 
REP_TBL: 


BYTE 1,24 

~BYTE 4,16 

BYTE 5,8 

-WORD 0 

ALIGN LONG 
KL 14 


~BLKL 
DUMMY4: .LONG 
70$: -LONG IPL$_SCS 

-DISABLE LSB 


3 get for failure to find MSCP 

3; Pick up the pointer to MSCP area 
3; All o onay 

; Return in disgrace 


3 Synch access 
; Set up register to mimic stack 


Need two zeros on bottom of stack 
for null arguments in display 


BLKCOUNT+512(R9), RS Point to the count 


boint to table of repetitions 
3; Ended 


; Cop 

3 Init counter 

; Tally up the counts 
3; Loop until done 


; Look for next entry 


Done | 
; Beginning of arglist needed for output 


since they must be accessed at IPL 8. 
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69 -SBTTL MSCPSGET_COU2 - Return the count from MSCP operations 
86 ENABLE LSB 
0700 : rt: ENTRY MSCPSGET_COU2 “M<RB,R9,R10> 
50 0084 er 3 A 08 MOVZWL #SS$_DEVOFFLINE,RO ; Set for failure to find MSCP 
58 00000000'9F 0d F 636 MOVL  aa#SCSS$GL_MSCP,RE : Pick up the pointer to MSCP area 
a. % 4 68 BLSS 10$ ; ALL okay 
04 : $3 RET 3; Return in disgrace 
59 0180 ce 9 49 71 10$: MOVAB MSUSL_OPCOUNT(R8) ,R9 ; Point at counts 
sis f 4 BRB 21$ 
329 74 21$: SETIPL 70$ :; Synch access to data block 
5A OQOOO03F4'EF ODE ef o MOVAL DUMMYS,R10 3; Set up register to mimic stack 
O33 r : Get all operations by category and build ‘stack’ 
7A ah 4 C8 oO 35 79 F MOVL MSUSL_OPCOUNT(R8),-(R10); TOTAL 
7A 0238 C8 00 $9 80 MOVL MSUSL_WRITE(R8),-(R10) ; WRITE 
7A 0104 C8 «200 0368 = 381 MOVL §§ MSUSL~ONLINE(R8S,-(R10) ; ONLI 
7A 0080 “© 00 036d 86 MOVL 32%4(R9) ,-(R10) ; CMP HST DAT 
7A «600108 CB. sé 037¢ 8 MOVL MSUSL_SETUNIT(R8),-(R10); SET UNT CHR 
7A_ 01BC C8 00 B35 4 MOVL MSUSL_GETUNIT(R8),-(R10); GET UNT STS 
7A 44 09 00 37C 85 MOVL 17#4(R9) ,-(R10) 3; CMP CTL DAT 
7A = Q1C0 ce dO bane 36 MOVL MSUSL_SETCTRL(R8) ,-(R10); SET CTL CHR 
7A 0188 € dO 85 8 MOVL MSUSL_GETCMD(R8),-(R10) ; GET CMD STS 
7A 01D0 C8 b0 Baar 88 MOVL MSUSL_AVAIL(R8),-(R10) ; AVAILABLE 
7A 50A9 DO O38F 89 MOVL 20*4(R9) ,=(R10) ; REPLACE 
7A 4€C 09 DO 0393 90 MOVL 19#4(R9) ,=(R10) 3 FLUSH 
7A 40 A9 DO 0397 91 MOVL 16#4(R9) ,-(R10) 3; ACCESS 
7A. 0234 C8 OD 398 8 MOVL MSUSL_READ(R8) ,-(R10) 3; READ 
48 A9 =O 3A0 9 MOVL  18%4(R9),-(R105 : ERASE 
7A 60184 C8 ~ 00 AS 94 MOVL MSUSL_ABORT(R8),-(R10) ; ABORT 
3Aa9 95 SETIPL # : Finished with block 
04 BC 5A 0 sat 38 MOVL R10,@4 (AP) 
50 01 3¢ 9 9 MOVZWL #SS$_NORMAL,RO 
04 oee7 4 RET 
0384 280 : Argument List - placed here since it must be filled in at IPL 8. 
4 & é ‘ .ALIGN LONG 
000003F4 7 ? pes -BLKL 16 
Fh «405 . 
00000008 re 607 70$: ~ LONG IPL$_SCS 
F 408 -DISABLE LSB 
F 409 
F 410 END 
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MSCPSSHOW - MSCP Server Information 19736-1388 05:03:30 A ie Beere v04-00 - 
Symbol table “SEP-1984 02:08: MSCP.SRCJMSCPSHOW.MAR; 1 ) 
CDT 1DC R 03 MSUSL_FRACTION 05¢ V 
CDT$L_PB = oie MSUSL-GETCMD 8 
DEVNAR p R MSUSL-GETUNIT 18 8 
DEV_CNT 114 R MSUS$L-HOST_DSBL 0 9 
DEV-NAME 110 R MSUS$L-HOST-VEC 11 8 
DUMAY 1 OFC R MSUSL_MAX_BUF O38 0 
DURA? 1c8 R MSUSL-MEM-WAIT 78 
DUMMY 0 R MSUSL_ONLINE 6 1D4 
DUMMY R 6 MSUSL_OPCOUNT 6 180 4 
DUMMYS F4R MSUSL-P1 0 o¢ 4 
HOBSB_FLAG 1F MSUSL—P2 000001 | 
HOBS$B_PORT 990 0B MSUSL-READ 9000 34 
HOBS$B- TYPE A MSUSL"SETCTRL CO 9 
$B- 000001 MSUSL~SETUNIT 9000108 4 
HOBSC_LEN 000004 MSUSL~ SMALL 000005 4 
$k~ 000004 MSUSL-STATE 0000040 4 
HQBSL BL INK 990 04 MSUSL"UNIT_VEC 0000090 4 
SL-CDT 0000014 MSUS$L—UQB_CIST 9900080 4 
HOBSL_FLINK 0000 0 MSUSL_WRITE 4 8 é 
HOB$L "UNI T_ONLN 0000001 MSU$SQ-CTRL_ID 00000190 8 
HQB$Q_ PENDING ats SU$SQ_CTRL- INFO 00000198 0 
HOBSQ~ 0000020 MSUS$Q-HQBLIST 90000484 
HOBSW-CNT_FLGS 00000018 MSU$Q~ QUEUE 0000070 S 
HOBSW~HST_TMO 0000001A MSUST—NAME 00000014 
HOBSW~MAX~QUE 990000 A MSUSW_INI_HOST 0000004¢ 9 
HOBSW_ NUM QUE 00000028 MSUSW_INI_PKT 90000046 
HOBSW_REFC 0000002 MSUSW"MAX_PKT 000004A 0 
HOBSW~SIZE 00000008 MSUSW"MAX—QUE 00000062 0 
HOBSW-USE FRAC 0000001C MSUSW_MIN-PK 0000004A 0 
1OCSCUT_DEVNAM eeeeeere =X 03 MSUSW"NUM_HOST 90000046 0 
IPL$_SCS = 00000008 MSUSW_NUM_P 0000004 0 
MSCPSGET_COU1 9900029¢ RG 03 MSUSW~NUM~ QUE 00000060 0 
MSCPS$GET~COU2 00000338 RG «03 MSUSW_PACRET 00000044 8 
MSCPSGET—HOST 9900011¢ RG 03 MSUSW~SIZ 00000008 
MSCPSGET~RESO OOOOIEC RG 03 990001¢¢ R 03 0 
MSCPSGET-UNI 00000000 RG 03 NOWRT 0000028 R 02 0 
MSCPSM_UF_WRTPH = 9000200 NOWRT_LEN = 00000006 0 
MSCPSM_UF —WRTPS = 00001 90000160 R 03 0 
MSCP$S_ST_MASK : 9900000 PBSL_SBLINK = 00000030 0 
MSCPSV~ST MASK = 0000 09 PRS$_TPL = 99900012 0 
mSUSB_CTRC_DAT 000001A REP-TBL QOOOOZEE R 03 0 
MSUSB_ SUBTYPE 99 S OOOOOTES R 03 0 
MSUSB_ TYP A SBS$T_NODENAME = 00000044 0 
MSUSB_VEC 4 SCSS$GL_MSCP aeeneeee =X 03 0 
MSUSC"LENGTH CC $S$_DEVOFFLINE = 90000084 0 
MSUSK"LENGTH 00004C SS$- NORMAL = 00000001 8 
MSUSK~MAX_HOST = 0000 91 STATUS_ARY 990000 OR 02 
MSUSK~MAX- UNIT = 0000001 TIM 0 ER 02 8 
MSUSL~ABORT 0000184 UQB$B_CMD_PEND 0 D 
“4 “AVAIL 1D UQB$B_FLAG 0028 
MSUS$L~BLKCOUNT 2 UQB$B-HOST_CNT 000000 
MSUSL BUFF _HEAD UQB$B" SLOT 09 A 
MSUSL~CDRP“LIST UQB$B- TYPE A : 
MSUSL ~ CDRP~ SAVE 6¢ UQB$C"LEN 00009C 
MSUSL~CDSV~SIZE 6 UQBS$K"LEN 9¢ 
MSU$L“D1 6 4 0 QB$L~CORP_BL 6 
MSUSL “D2 0000004 UOBSL~CDRPFL 60 


SEE 
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MSCPSSHOW - MSCP Server Information 16-SEP-1984 705: AX/VMS Macro V04-00 Page 12 a 
Symbol table sets $5: 88:39 YRSCP.SRC MSCPSHOW.MAR; 1 . (1) 
UQBSL_CPY_ CDRP 8 V 
UQBSL_FENTEH « 
UQBSL_FENCEL Q 
UQB$L_HOST_ONLN 0 
UQBS$L~MAXBCOCK af 0 
UQBSL_MEDIA_ ID 0 
UQB$L~SHDW_BL 4 0 
UQBSL_SHDW_FL 0 
UQBS$L_SHDW_LOW 0 
UQBSL_SHDW_MST 7 0 
UQBSL-START_L 0 +f 0 
$L_UC 8 3 0 
UQB$L_VOL_SER 0 
UQB$Q"BLOCKG $ $ 0 
$Q_SHQ Q 
UQB$Q-UNITOQ 08 8 0 
UQB$Q-UNIT_ID 000001 Q 
$T 000003 0 
UQB$W"MAX_BLK 000007E 0 
MAX, 000005 0 
UQB$W"MAX~ QUE ita 0 
MUL 000001 0 
UQBSW"NUM_BLK 000007C 0 
UQBSW_NUM_OPS 0000054 0 
UQBSW_NUM_Q 0000050 0 
UQB$W"SHD@_STS 90000086 0 
UQB$W"SHDW_UNT 00000024 0 
512 00000008 0 
UQBSW_STATUS 444 0 
UQBSW_| 000000 0 
UQBSW"-UNT_FLGS 0000001 8 
Suneateueeenoene + 0 
! Psect synopsis ! 8 
0 
PSECT name Allocation PSECT No. Attributes 8 
. $s 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 0 
SABSS 44 . ¢ 1299.3 01 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 0 
SHOWSRWDATA 0000 6 ( 4.) 8 ( §°3 NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 0 
SHOWSCODE QO0003SFB ( 1016.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 8 
porcesrerer ower anrene cmnecae 
! Performance indicators ! 6 
jaeeoeesoesorssennsesceens + a 
Phase Page faults CPU Time Elapsed Time 6 
Initialization 11 :00:00. 701.48 
Command processing 75 - 9 3 705.81 4 
pees } sand : 303 :00:12.30 :00: o-3 é 
yabol table sor :00:01. 7:00:04. 
Pass 2 9 :00: 13 :00: § 0 
pyabot table eutput ; 17 :00:00.1 :00:01.0 
sect synopsis outpu :00:00. :00:00. 
Cross-reference output 6 88 8: § 8 


He porting ts Limit was 1350 pages. 
eyees,, (131 pages) of virtual memory were used to buffer the intermediate §gee- 
There were 70 pages of symbol table space allocated to hold 1231 non-local and local symbols. 
410 source i Ae were read in Pass 1, producing object records in Pass 2. 
pages of virtual memory were used to define 17 macros. 


Pmroeeeenran werner awe ernece see + 


! Macro Library statistics ! 


oem et owee ee wcr ens aw ses seo no = $¢ 


Macro Library name Macros defined 


$3554 SDUAZB: (55-0831 18.MLB:1 : 
:CMSCP. i 5mscPDee. “MLB; 1 
:CSYSLIB STARLET. MLB; 
Hew (all Libraries) 14 
1344 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:MSCPSHOW/OBJ=0BJ$:MSCPSHOW MSRC$:MSCPSHOW/UPDATE=(ENHS :MSCPSHOW) +L IBS: MSCPDEF /LIB+EXECML$/L!B 


G6 5 
MSCPSSHOW = MSCP Server Informati 16-SEP-1984 02:05: AX/VMS v04-00 
Sieett Macro Run Statistics . eeu §-§ sett yi 95:93:39 YRSCP SRC MSCPSHOW.MAR; 1 
Assembler run totals 479 00:00:17.08 00:00:56.00 
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